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ATTR Syntax: Attr filename [permissions] Usage : Examine or 
change the security permissions of a file Opts: -perm = turn off 
specif ied permission perm= turn on specified permission -a = 

inhibi 



s - nc 
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one d< 
single 
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iflillsage: Change execution 
TJ^mmmmmmmMmmmSMSEm^ filename! filename2 



rms : d - directory file 
jfco-pwner w - write permit 
M read permit to public 
|ermit to public BACKUP 
Up Copies all data from 

error occurs s = 
IHrites BASIC09 Syntax : 
fpUILD Syntax: * Build 
j|||from standard input 
working directory to 



direct 

Usage : 'Fi^H^P^^^^^P^M^^pitaz: Cobbler devname 
Creates i OS— 9 Footstrap nle from current boot CONFIG 
x 



Usage 
lynta 
>yntax 



/*- — ■«- TT ** -*■ - 



!■ MM ■ Ml 



one fil 
Date [t 
specify 
: Checl 
for woi 
= save 
cluster 

Sirint i 
<devn 
ilenan 
delete 
directo 

w w 

names 

executi 

Display s cfmmHP^pHp^^p^pl^Bi 
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i disks COPY 
data from 

ipglyntax : 

Ilie> Usage 

Ilictory 
-m 

unused 

-o = 

ame> 

|el [-x] 

Hifceldir 
Jypax: Dir 
file 
k=print 



: Dsave [- 



JK Syntax 
.^^^HIHi^riHPK^^^iWiiilure file 



to copy all files in a directory system Opts : -b make a system 
disk by using 0S9boot if present -b=<path> = make system disk 

process b 
command 
ECHO Syn 



output EI 



? 



text editoL 
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makdir 
Oiifium K 
liilard 
Hinted 



error message! iM^?illi|p' TO ' '"" |ibame> 

Usage: Chain W^^^^^x^^^a^^^ff&^f^W^t 
<devname> Usage : Initializes an 0S-9 diskette Opts ; R - Ready L 
- Logical format only "disk name" 1/2 number of sides 'No of 



AUSTRALIAN 0S9 NEWSLETTER 
Newsletter of the National 0S9 User Group 



EDITOR : Gordon Bentzen 

HELPERS i Bob Devries and Don Berne 

SUPPORT : Brisbane 0S9 Level 2 User Group, 

August, 1989 



Let's talk about utility programmes. Hands up those of you who quickly write a programme in id&re I say 
it?) Disk Extended Colour Basic, to do a particular job for a particular time, and then promptly turn off the 
computer when that job is done ? Quite a few of you I'll bet. I know I do it all the time, Have you ever considered 
that you have just written, and destroyed, a programme that might be useful to someone else ? And above all, with a 
little bit of extra thought, could be written in Basic09? 

Oh sure, I can hear you say, why would I turn on the computer, boot up 0S9, and then load up Basic39 just 
to run a ten line programme ? Well, I am here to say that it is a very good idea to try it anyhow. There is a 
programme elsewhere in this issue, written by Bob Devries, that started out life just as a little half-a-dozen 
lines to find the file descriptor information of a particular file. The information required was the creation date 
of a source-code listing, and, as we all know, the DIR E command only tells us the date of last modification, not 
its creation. So, having found out how to read the file descriptor, Bob put this to further work and after a few 
hours work, out popped 'UpperDir' a Utility Programme to rename all directory files to uppercase and all normal 
files to lower case. 

You know, I'd like to hear from other people who have perhaps put together a few ideas like that to do a 
task and, even if it does not work as expected, send it to us here at the newsletter, and we may be able to add 
some more code to make it work better, or do more yet. Sometimes, I find that I st&^\ writing a programme to do 
something, and find when I am part-way through that I can't finish it because of lack of experience or not enough 
knowledge of the subject. What happens then is that usually it gets forgotten, or picked up again much later. 
Sometimes I wonder if someone else could perhaps continue with it to make it turn out correctly. Of course, the 
best idea would be to talk with people at the local user group, but that is usually still three weeks away, and I 
need help NOW! When this happens to you, drop us a few words on paper (or disk) and we will endeavour to set you 
straight if possible. Don't forget, we three are not super programmers either, so don't expect miracles, and please 
give as full an explanation of what you want as you can. 

Well, I guess it's time to remind you about your subscriptions. They are due at the end of THIS month. 
Please get those cheques away as soon as possible so that we can decide whether it was all worth it. I for one have 
learnt a lot from writing in this newsletter, and from having to read the manual whenever I had to cover a subject 
I was not too sure about. I know I am speaking for the three of us when I say that I'd like to continue for another 
year, so how about it fellows ? flake my day, send that cheque! 

Topics covered in this month's newsletter include 'UpperDir' by Bob Devries, more explanations about the 
'Edit' utility (that word again) by Don Berrie, and also of course, more of Bob's Database in 'C. I'd like to see 
more questions coming to us from you people out there, even if you've found out the answer yourself in the mean 
time, don't forget that others may have similar problems. At a local user group recently, I showed some-one how to 
use the Config programme to set up a double sided 0S9 system disk (Oh, don't blush, friend). I'm sure there are 
others who have the same problems, including difficulties in setting up Muiti-Vue and other programmes. 

Well, that's about all for this month, happy computing, 

Regards, 
The Editor. 
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MACROS: Continuing a Tutorial for the 0S9 Macro Text Editor 

Two of the most overlooked features of the Macro Text Editor are its ability to handle more than one file at a 
tiiTie, that is multiple buffers, as well as its ability to handle quite complex macros. It is not really surprising 
that these features are overlooked, because the manuals (both Level 1 and Level 2) leave much to be desired in 
their explanations. First of all, let's look at multiple buffers. 

Why do we need multiple buffers? Well consider the following. We are writing an article for the newsletter using 
good old EDIT, and we decide that, as an example, we want to include our startup file into the text to illustrate a 
point. Ever tried it? If, like most people that I know, you looked in the manual to see how to dc it, couldn't 
understand it, and gave up and used Stylograph; read on. 

The other (and I guess the most important) reason for having the ability to edit multiple files is of course for 
our friends with Level 1 systems, or for those with Level 2 systems which don't support windowing. (Yes, some 
Level 2 systems don't have that ability.) Back to our example. For the purpose of this tutorial, we decide that we 
want to edit the text before we import it into our document. To do this, we load the new (ie /dd/startup ) file 
into a DIFFERENT buffer. (We could have imported the whole file into our document, and then edited it, but that 
doesn't serve the purpose of this example.) We do this by switching to a new buffer : 

B0 

When EDIT is started, by default there are two buffers already defined, the primary buffer (denoted by *), and the 
secondary buffer (denoted by $). At startup, the primary buffer is always buffer i, and the secondary buffer is 
buffer 2. So the command B0 makes buffer into the primary buffer. You can only operate on the text contained in 
the primary buffer. Rather than make buffer the primary buffer, you could have equally typed ' 

B6 

and created buffer 6 (if it did not already exist), and made it the primary buffer. I don't know how many buffers 
you can create, but you are limited (initially at least) only by the amount of memory available. Remember the 
[#nK] command line modifier from last months installment. To display the buffers currently defined, type : 

.DIR 

(Don't forget the full-stop.) This will show you a list of the currently defined buffers, with the primary buffer 
marked with an asterisk, and the secondary buffer marked with a dollar sign. It will also show a list of MACROS 
currently defined. We will come to those later. 

Next, we will need to load the text into the new primary buffer. This is a two step process. The first thing to 
do is to tell the editor the new filename. This is where the confusion starts. To do this you need to use the : 

.READ "pathlisf 

command. The parentheses are necessary. Therefore our command line becomes (in my case at least) .READ 
VHB/startup 1 . So far we have only told the editor the name of the file that we wish to edit. Next we must 
actually read the file into the buffer. To achieve this we use the ' 

Rn 

command, which causes the editor to read n lines, (eg R* reads the whole file into the buffer, if it will fit). As 
the editor is loading text into the buffer, is displays the lines as they are read. From here on, we edit the file 
as per normal. 

When we have the text in the format we desire for incorporation into the original document, we use the s 

Pn 
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command. This is where the concept of defined primary and secondary buffers becomes important. The Pn command 
PUTS n lines of text into the secondary (in our case buffer ft, where we just were) buffer. Remember, that the 
buffer last used, becomes the secondary buffer. {Use the .DIR command if you are not sure where you are.) If we 
were to switch to the original document using the Bl command, we could then load text from the secondary buffer 
(now buffer 0, the last buffer that we used), by the use of the command : 

-Gn 

This command SETS n lines from the secondary buffer, The thing to remember, is that both G and P operate only 
between the primary and secondary buffers, whatever their numbers may be. 

Other commands that you may wish to use are the W command, which writes n lines from the current buffer to the 

pathname as defined in the initial command line, or by a .READ command. The Vn command turns on (n=0) or off 

(n=any other number) the verify command. This will prevent the editor from echoing lines to the terminal. You 

need to exercise care with the use of the V command, because it will also prevent listing of your document to the 
screen using the Ln command! 

As with the previous article in this series, you may use both upper of lowercase for these commands. 

Next month, we will discuss the editing of files larger than the workspace, and start on the concept of MACROS, and 
hopefully we will provide a macro to delete lines of text and display the next line in the file, rather than the 
one just deleted (a quirk of this editor which I find absolutely infuriating)!). Until then keep up the good work. 

ooooooooooOOOOOOOOOOcoooooooco 

A Database in C 
By Bob Devries 

Here are two more parts to my C Database programme. The first is 'help.c' and provides a help screen 
documenting all the commands available, and the second is the 'find.c' routine which allows you to find a 
particular record in the file. 

The 'help 7 command clears the screen with a call to the 'els' function, and prints a series of lines to the 
screen, and then waits for a keypress. When a key is pressed, it clears the screen and returns to the main 
programme. 

The 'find' function prints up an empty shell for the data entry, and then asks for the surname to be found. 
It then goes looking for the record that matches that name. If found, it is displayed, and that record becomes the 
current record. If it is not found, 'Not Found' is printed on the status line, and the last record is displayed. 
Note that the programme is very litteral in its search, and does differentiate between upper and lower case. So 
make sure you get it right. Perhaps someone can devise an easy way to overcome this limitation. 

helpO 

/* pressing h from the data screen will clear the screen and display the */ 

/* help message, then wait for a keypress, the mainO function then re- * 

/* displayes the data screen. */ 

{ 

char ch; 

ch = '\3'i 

clsO; 

printf("\n\n\n a = amend (edit) displayed record. \n B ); 

printfC p = goto previous record. \n')» 

printfC n = goto next record. Nn 1 ); 

printfC i = insert new record. \n"); 

printfC d = delete displayed record. \n'); 
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printf ( B f = find a record by surname. \n a ); 

printf (* m = find another record with same criteria. \n a ); 

printf (" h = help (this screen ). \n a }; 

printf (' e = exit from programme. \n u ); 

printf ( B \n\n\n Press any key to return..."); 

ch = getchOi 

cls(); 



findO 

/* findO locates the first occurence of the surname which is input and */ 

/* returns the record number of that record #/ 

{ 

char nametmp[211; /* left? surname variable */ 

int temprec; /* temporary current record */ 

long lof; 

temprec = S; 

fseek(fp,31,2}; 

lof = fteilifp); 

cls(); 

scrnmaskO; /* display empty screen mask */ 

cursors 10,23); 

eraseiinO; /* erase message line */ 

cursor (13, 23); 

printf ("Input surname to be found, 1 ); /* print prompt */ 

cursor (14,5); 

gets(nametmp); /# get surname to be found */ 

cursor(!3,23); 

eraseiinO; /* erase message line */ 

do { 

temprec += 1; 

fseektfp, (long) (temprec - l)*si:eof (mail), 3); 

if (fteii(fp) < lof) /* read until eof */ 
/ 

f read( &mai 1 , si zecf ( mai 1 ) , 1 , f p } ; 

i 
else 

( 

cursor (IS, 23); 

eraseiinO; 

cursor (10, 23); 

printf ("Not found. 9 ); 

break; 

} 
) anile ((strcmp(nametmp, mail. surname) != 2)); 
return; temprec); /* return record number of wanted file */ 
} /* or last record if not found #/ 

ocooooooooOOCGOOOOOOoogooooogo 

LABEL PRINTER This is another BasicS? programme submitted by Phil Frost of Kalgocrlie. Phil states a the 
label_Printer programme arose from the need to re-label disks after a re-organization of -my col lection, a Ne thank 
you Phil for sharing this programme with us, and no doubt other members mill also find it useful. The programme 
will help you print labels to attach to disks, and contains all the necessary instructions when run. I note that 
Phil has included printer codes for a Tandy DMP-133, however his commented source will make it very easy to alter 
the codes to suit any other printer. 
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PROCEDURE lafael.printer 

(* One Line Printer programme for 3 1/2 >: 15/16 labels 

U For Printing Lables 

(* 

(* by Phil Frost 

(# 

i* The Printer Codes are Set for a DMP-13B Printer 

DIM printer:BYTE 

DIM a$:STRINGE35] 

DIM b$:STRINGE42] 

DIM c$:STRING[6S] 

DIM select :BYTE 

•(* 

OPEN #printer,Vp fl -'WRITE 

(* 

53 PRINT CHR$(12); 

PRINT \ PRINT \ PRINT 

PRINT 7AB(33>5 "LABEL PRINTER." 

PRINT \ PRINT 

PRINT TAB(23); fl 1/ Norraal 35 Characters per Line 3 

PRINT 

PRINT TAB(23); fl 2/ Compressed 42 Characters ?er Line 3 

PRINT 

PRINT TA3(23); ' 3/ Condensed £3 Characters per Line 3 

PRINT 

PRINT TAB (23); a 4/ End a 

PRINT \ PRINT 

PRINT TAB(33); 

INPUT "Select", select 

ON select GOTO 2(33,3120,430,500 

203 PRINT 

PRINT TABUS); B Type quit or QUIT to end input" 

PRINT TABUS); 9 35 Characters Per Line 3 

PRINT TABU0); B ***********++*************^******* 3 

PRINT TAB*?); 

INPUT a$ 

IF a$= a quit u OR a$= tf QUIT fl THEN 

SOTO 53 

n r— 

ENDIF 

PRINT #printer,CHR$(27); CHR*U9); 

PRINT Sprinter, a$ 

SOTO 200 

3S0 

PRINT TAEU0); ■ Type quit or QUIT to end input 8 

PRINT TABU3); B 42 Characters Per Line 5 

PRINT TABU0); a ****##*#*###**##**###*#***###***##**#*#***' 

PRINT TAB(9J? 

INPUT b$ 

IF b$= a quit B OR h$= a qUIT a THEN 

GOTO 53 

ELSE 

ENDIF 

PRINT #printer,CHR*(27); CHR$(23); 

U set compressed character 

PRINT ^printer, b$ 
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GOTO 3132 

PRINT TABUS) ? 5 Type quit or QUIT to end input 3 

PRINT TABUS); a 60 Characters Per Line 9 

PRINT TABUS); 3 *##*****#********#*****#*#*********#***********##*********** , 

PRINT TAB<9); 

INPUT c$ 

IF c$='quit" OR ct= a QUIT B THEN 

GOTO 53 

ELSE 

END IF 

PRINT Sprinter, CHR$<27}; CHR$(23); 

(* set condensed character 

PRINT #pr inter ,c$ 

GOTO 409 

530 PRINT #printer,CHR$<27); CHR$U9); 

(* reset printer to normal mode 

CLOSE #pr inter 

END 



JCGOOOOOCOOUyyUUyUiJOUDOOGOOOOOD 



The Public Doisain Library. 

We have received a number of requests from members far a complete listing of the Public Domain files cf the 
National OS? user Group. The task of providing this hc&ever- is not as simple as it sounds. Bob Devries reviewed 
some 34 archived files in last month's newsletter which provided information about each of the files. This month 
we include a simple directory listing of another disk front the library which includes many files published in past 
newsletters. Please r&f^r to this newsletter listing if you want any of these files* and order in the usual way. 
i.e. Post formatted disks with return postage plus $2.08 copy charge for each disk, and of course, specify the 
files or other disks required. 

Directory of /d2/A3r1/CMDS 
ut i 1 dmode mverify rrirename ar09 ar 



Directory of /d2/ASM/HELP 
ar.doc 



Directory of /d2/C.WW/C«DS 
lsn3 database lb 



1 flump 



hxd 



Directory of /d2/C_MW/SRC 
IsnS.c database. c ansi.h 
hxd.c 



lb. 



rdump.c 



Directory of /d2/CJ1W/HfcLr 
most c.2 os9h>;d.art 



Directory of /d2/BASICS9/Cf1D3 
zap ohms 



labei_printer upperdi) 



Directory of /d27BASIC39/SRC 
zap i coned! t 

upperdir.BS? 



ohms law 



labelprmter 



age / 
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Directory of /d2/SHELLSCRIPT 
ccl_cc2 cci_patch 



Directory of /dl'/SHELL 

shellpius shellplus.doc shellpius, install 

logiock.on.scr iogiock.off .scr wild. on. scr 

wild.0ff.5cr ncblock.oTi.scr noblock.off.5cr 

*>SHELLPUJS.2.i 

Directory of /d2/SHELL/SHELLPLUS.2.1 

shellpius ehellplus.doc shellpius. install 

atcheck.on.scr atcheck.off.scr logiock.Gn.5cr 

lcglock.off.scr wild.cn. scr wild. off. scr 

noblcck.on.scr noblock.off .scr shellscript 

par arri. a parant.bin edate.a 

sdate.bin prompt. bin 



GOOOOOOOGOOOOOOOOOOOOOGCOOOOGO 

UpperDir, A Basic09 Utility. 
By Bob Devries, 

I've had heard several times in the past the complaint that it is impossible to tell files and directories 
apart in OS?. The answer of course lies in good housekeeping, and by having all files in lowercase characters* and 
all directories in uppercase characters. Well, that's all very goad? but what if you've already got thes all in 
uppercase like the OS? level one disks as they were supplied by Tandy? Of course a utility programs is the answer, 
And here it is. 1 have called it UpperDir. 

It opens the current working directory! and reads the filenames one by one. ano decides whether they are 
files or directories, and renames them using lowercase or uppercase as is necessary. If they ^tb already correct 
Then no changes are made. 

Please note that this programme requires that you have 'Rename' in memory or the current execution 
directory, or it will not work. If you forget this, \h^ UpperDir will terminate with an error. 

I have also written a version in ? C, which does not require 'Rename' to work, but does the renaming 
itself. I will be presenting that version in a future newsletter, 

PROCEDURE UpperDir 

mm (* UpperDir - CopyRight (c) 19S? By Bob Devries 

202F (* Freely distributable. 

S047 <* UpperDir reads the current directory, and changes all 

Mir (* the directory names to UPPERCASE, and ail the files to LOWERCASE 

S0C2 i* It uses the ? Rename' utility, so be sure it is in memory 

30FD (ft or in the execution directory. 

3IIE (* Version 1.30 Date 12th July, 1989. 

0143 EASE 3 

0145 TYPE direct=fname:£TRING[2?j; fsectG) :BYTE 

0162 DIM entry:direct 

316? DIM dirpath:BYTE 

017S DIM path:EYTE 

3177 DIM name,newname:3TRIN6E2?] 

0187 DIM attnEYTE 

01SE DIM changed i BOOLEAN 
3195 

S196 attr=0 

31 9D nase= aa 

01 A4 neuma!Be="" 

01 AE OPEN #dir?ath,\ D :READ-H5IR 

01E7 GET #dirpath,entry 
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81 CI GET #dirpathi entry 

S1CB wHILE NOTtEOFUdirpath)) DO 

BIDS 1 GET #dirpathi entry 

01E3 IF LEFTt(entry.fname,i)=CHR$(0) THEM 

01F6 GOTO 30 

BiFA ENDIF 

B1FC RUN ex tnaiiie> entry* name) 

02BB ON ERROR GOTO 18 

0211 OPEN # pathname: READ 

S2iD ON ERROR 

S22B GOTO 23 

0224 IB ON ERROR 

B22A ON ERROR GOTO 15 

023B OPEN #path,na£e:READ+DIR 

S23C ON ERROR 

B23F GOTO 20 

0243 15 PRINT "File "; naise? li inaccesBabie." 

0264 ON ERROR 

0267 name= B " 

B26E neu.fname= Hfi 

B275 GOTO 1 

B279 2S RUN readfd(path.attr) 

02SB EXITIF attr=-l THEN 

029B PRINT "Error in Syscall 'GetStt SS.FD cai: 

02C0 ENDEXIT 

B2C4 changed=FALSE 

02CA IF LAND(attr,*80)=*B0 THEN 

B2DB RUN upper ( name, newnaiae? changed) 

02EF ELSE . 

02F3 RUN- 1 ewer ( na^te, newna&ie i changed ) 

B307 ENDIF 

B3B9 PRINT neumame, 

B3BF IF changed=TRUE THEN 

B31 A SHELL "rename B +nair»et e a +neiimafT;e 

0331 ENDIF 

B333 CLOSE #path 

0339 na.(rte= BH 

0340 newnaiBe= B " 
0347 30 ENDWHILE 

B34E CLOSE idirpath 

0354 PRINT \ PRINT 'Finished f 

0364 END 
PROCEDURE exiname 

0000 TYPE direct=fnaifie:STRIN6E293» fspet(3):£YTt 

0B1B PARAH entry:d:rect 

0B24 PARAn name:STRING[29 3 
Dili 1 1 INTEGER 



S037 

B03S FOR i=l TO 28 

0046 EXITIF ASC(hiD$(entry,fna(ii8,i,!)}>i27 THEN 

005E name=name+CHR$iASC( MI D*i entry, tname, i, ! ))-128) 

B07B ENDEXIT 

3B7C nanie=nan)e+MID$ ( entry ,f name* M ) 

0B91 NEXT i 

0B^C END 
PROCEDURE upper 

3B00 PARAM name :STRINGL 293 
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S00C 

mis 
mir 

2026 
B32D 
002E 
(50JE 
@B4D 
0060 
8070 
0076 
007A 
3037 

006? 

0094 
PROCEDURE 

0000 
000C 

00iB 
001F 
0026 
002D 
002E 
003E 
004D 

0060 

0070 

0076 
007A 
0087 
008? 
0094 



FARAM neiiTiame-STRINGC 2? J 
PARAH changed! BOOLEAN 
DIM i: INTEGER 

DIM char: INTEGER 

FOR i=l TO 2? 
c h a r =AS C ( h 1 D$ ( n ame 1 1 T 1 ■' ) 
IF char>96 AND char<123 THEN 
neunaRe=neiimafRe+CHR$i char-J2) 
changed=TRUE 
ELSE 

newnaffie=netima[Be+CHR$ < char } 
END IF 
NEXT i 
END 
lexer 

PARAN nsme:STRING[29] 
PARArt neumaine:STRIN5[2?3 
PARAh changed: BOOLEAN 
DIM i: INTEGER 
DIM char: INTEGER 

FOR i=I TO 29 
char=ASC(MIB*(name,i,l)) 
IF char>64 AND char<91 THEN 
newnante=neumaniB+CHR4 ( char+32) 
changed=TRUE 
ELSE 

newnafoe=neumai3e+CHR$ ( char } 
ENDIF 
NEXT i 
END 



PROCEDURE readfd 



0000 

0007 
000E 

0010 

0035 



PARAM path:BYTE 
PARAh at tr". BYTE 
BASE 

TYPE register=-=cc,a,b T dp:BYTE; x,y,u:INTE6ER 
TYPE seglist=lsn(3):BY7Ei nosec(2):BYTE 
TYPE fiIedes=att:BYTE; omen INTEGER; daie\5}:BYTE; link'BYTE 



52e(4}:BYTE: creat(3):BYTE: 



E-eQ=-(43):seqIi=-t 

0095 DIM regs: registers 

0S9E DIM fd:filedes 

00A7 DIM GetSttsBYTE 

BBAE DIM SS_FD:BYTE 

00E5 GetStt=$SD 

00BD SS_FD=*8F 

00C5 regs^a^path 

00D1 regs.h=SS_FD 

0SDD regs.>!=ADDR(fdi 

00EB RUN syscallOSetSttjregsi 

00FA IF LAND(reqs.cc t i)=l THEN 
(BIBC aiir=-l 

0114 ELSE 
0118 attr=fd,at: 

0123 ENDIF 



■ j aci 



